inherited FCadSubArea: TFCadSubArea
  Caption = 'Cadastro de Sub-Area'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl1: TPanel
    Height = 238
    inherited pnl7: TPanel
      Height = 55
      inherited dbgConsulta: TDBGrid
        Height = 53
      end
    end
  end
  inherited pnl2: TPanel
    Top = 238
    Height = 249
    object lbl1: TLabel [5]
      Left = 13
      Top = 152
      Width = 112
      Height = 13
      Caption = 'SUBARE_DESCRICAO'
      FocusControl = dbedt1
    end
    object lbl2: TLabel [6]
      Left = 15
      Top = 107
      Width = 92
      Height = 13
      Caption = 'SUBARE_CODIGO'
      FocusControl = dbedt2
    end
    object lbl3: TLabel [7]
      Left = 17
      Top = 65
      Width = 70
      Height = 13
      Caption = 'ARE_CODIGO'
      FocusControl = dbedt3
    end
    object dbedt1: TDBEdit
      Left = 13
      Top = 166
      Width = 784
      Height = 21
      DataField = 'SUBARE_DESCRICAO'
      DataSource = dsPadrao
      TabOrder = 5
    end
    object dbedt2: TDBEdit
      Left = 15
      Top = 121
      Width = 93
      Height = 21
      Color = clGray
      DataField = 'SUBARE_CODIGO'
      DataSource = dsPadrao
      ReadOnly = True
      TabOrder = 6
    end
    object dbedt3: TDBEdit
      Left = 17
      Top = 79
      Width = 70
      Height = 21
      Color = clSkyBlue
      DataField = 'ARE_CODIGO'
      DataSource = dsPadrao
      TabOrder = 7
      OnDblClick = dbedt3DblClick
      OnExit = dbedt3Exit
    end
    object EdDescArea: TEdit
      Left = 88
      Top = 79
      Width = 710
      Height = 21
      Color = clGray
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 8
    end
  end
  inherited qPadrao: TQuery
    DatabaseName = 'BDSistema.FDB'
    SQL.Strings = (
      'SELECT * FROM SUB_AREA'
      'WHERE 1 = -1')
    object qPadraoSUBARE_DESCRICAO: TStringField
      FieldName = 'SUBARE_DESCRICAO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.SUBARE_DESCRICAO'
      Size = 60
    end
    object qPadraoSUBARE_CODIGO: TIntegerField
      FieldName = 'SUBARE_CODIGO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.SUBARE_CODIGO'
    end
    object qPadraoARE_CODIGO: TIntegerField
      FieldName = 'ARE_CODIGO'
      Origin = '"BDSISTEMA.FDB".SUB_AREA.ARE_CODIGO'
    end
  end
end
